home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
visual.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
1KB
|
26 lines
(herald visual (env tsys (xlib interface)))
(DEFINE (MAKE-VISUAL) (CONS 'VISUALP (MAKE-BYTEV 32)))
(DEFINE (VISUAL-EXT_DATA X)
((LAMBDA (X Y) (CONS 'XEXTDATAP (MREF-POINTER X Y)))
(CHK-VISUALP X)
0))
(DEFINE (VISUAL-EXT_DATA! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XEXTDATAP Z)))
(CHK-VISUALP X)
0
Y))
(DEFINE (VISUAL-VISUALID X) (MREF-INTEGER (CHK-VISUALP X) 4))
(DEFINE (VISUAL-VISUALID! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 4 Y))
(DEFINE (VISUAL-CLASS X) (MREF-INTEGER (CHK-VISUALP X) 8))
(DEFINE (VISUAL-CLASS! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 8 Y))
(DEFINE (VISUAL-RED_MASK X) (MREF-INTEGER (CHK-VISUALP X) 12))
(DEFINE (VISUAL-RED_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 12 Y))
(DEFINE (VISUAL-GREEN_MASK X) (MREF-INTEGER (CHK-VISUALP X) 16))
(DEFINE (VISUAL-GREEN_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 16 Y))
(DEFINE (VISUAL-BLUE_MASK X) (MREF-INTEGER (CHK-VISUALP X) 20))
(DEFINE (VISUAL-BLUE_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 20 Y))
(DEFINE (VISUAL-BITS_PER_RGB X) (MREF-INTEGER (CHK-VISUALP X) 24))
(DEFINE (VISUAL-BITS_PER_RGB! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 24 Y))
(DEFINE (VISUAL-MAP_ENTRIES X) (MREF-INTEGER (CHK-VISUALP X) 28))
(DEFINE (VISUAL-MAP_ENTRIES! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 28 Y))